ahahahhah
2024-03-13
ahahahhah
Una slide con testo piccolo
ciccio
pasticcio
ciccio 1
pasticcio 2
cicciopasticcio
colonna A
Hei Jude
Hello Word
colonna B
Hi
Testo fuori dalle colonne
Testo colonna sx con allinemento a sx
Testo colonna dx con allineamento a dx
Hi
Hey
## ## Call: ## lm(formula = Temp ~ Month, data = airquality) ## ## Residuals: ## Min 1Q Median 3Q Max ## -20.5263 -6.2752 0.9121 6.2865 17.9121 ## ## Coefficients: ## Estimate Std. Error t value Pr(>|t|) ## (Intercept) 58.2112 3.5191 16.541 < 2e-16 *** ## Month 2.8128 0.4933 5.703 6.03e-08 *** ## --- ## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1 ## ## Residual standard error: 8.614 on 151 degrees of freedom ## Multiple R-squared: 0.1772, Adjusted R-squared: 0.1717 ## F-statistic: 32.52 on 1 and 151 DF, p-value: 6.026e-08
shiny::shinyApp(
ui = fluidPage(
sidebarLayout(
sidebarPanel(
selectInput(inputId = "dataset", # nome dell'input per il server
label = "Choose a dataset:", # nome dell'input per lo user
choices = c("rock", "pressure")) # opzioni
),
mainPanel(
plotOutput( #qui voglio un grafico
"graph"
)
)
)
),
server = function(input, output){
output$graph <- renderPlot({
if(input$dataset == "rock"){
data <- rock
} else {
data <- pressure
}
plot(data[, c(1:2)])
})
},
options = list(height = 300)
)